Option Strict On
Option Explicit On
Friend Class clsInforme
	
	Private MyPacienteNombre As String
	Private MyPacienteApellido As String
	Private MyNroHCPaciente As String
	Private MyObraSocial As String
	Private MyNroAfiliado As String
	Private MyMedico As String
	Private MyFecha As Date
	Private MyDPOD As String
	Private MyDPOI As String
	Private MyDPAO As String
	
	Private MyCVC As String
	Private MyODValor As String
	Private MyODCC As Boolean
	Private MyObservacionOD As String
	Private MyCorreccionOD As String
	
	Private MyOIValor As String
	Private MyOICC As Boolean
	Private MyObservacionOI As String
	Private MyCorreccionOI As String
	
	Private MyAOValor As String
	Private MyAOCC As Boolean
	Private MyObservacionAO As String
	Private MyCorreccionAO As String
	
	Private MyCVCyPOD As String
	Private MyCVCyPOI As String
	
	Private MyCVPOD As String
	Private MyCVPOI As String
	
	Private MyNOOD As String
	Private MyNOOI As String
	' a = "NuevoInforme.ODValor, NuevoInforme.OIValor, NuevoInforme.AOValor, " & "NuevoInforme.ObservacionOD, NuevoInforme.ObservacionOI, NuevoInforme.ObservacionAO, " & "NuevoInforme.CorreccionOD, NuevoInforme.CorreccionOI, NuevoInforme.CorreccionAO " & "NuevoInforme.CVCyPOD, NuevoInforme.CVCyPOI, " & "NuevoInforme.CVPOD, NuevoInforme.CVPOI, NuevoInforme.NOOD, NuevoInforme.NOOI, " & "FROM NuevoInforme, DatosPAciente, DatosObraSocial, DatosPersonales " & "WHERE DatosPacientes.codObraSocial = DatosObraSocial.codObraSocial AND DatosPacientes.codPaciente " & "= DatosPersonales.codPersona AND (DatosPacientes.codPaciente = " & Ent.OID.ID & ")"
	
	
	
	Public Property PacienteNombre() As String
		Get
			If Len(MyPacienteNombre) > 0 Then
                Return MyPacienteNombre
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyPacienteNombre = Trim(Value)
		End Set
	End Property
	
	
	Public Property PacienteApellido() As String
		Get
			'PacienteApellido = MyPacienteApellido
			If Len(MyPacienteApellido) > 0 Then
                Return MyPacienteApellido
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyPacienteApellido = Trim(Value)
		End Set
	End Property
	
	
	Public Property NroHCPaciente() As String
		Get
			'NroHCPaciente = MyNroHCPaciente
			If Len(MyNroHCPaciente) > 0 Then
                Return MyNroHCPaciente
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyNroHCPaciente = Trim(Value)
		End Set
	End Property
	
	
	Public Property ObraSocial() As String
		Get
			'ObraSocial = MyObraSocial
			If Len(MyObraSocial) > 0 Then
                Return MyObraSocial
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyObraSocial = Trim(Value)
		End Set
	End Property
	
	
	Public Property NroAfiliado() As String
		Get
			'NroAfiliado = MyNroAfiliado
			If Len(MyNroAfiliado) > 0 Then
                Return MyNroAfiliado
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyNroAfiliado = Trim(Value)
		End Set
	End Property
	
	
	Public Property Medico() As String
		Get
			'Medico = MyMedico
			If Len(MyMedico) > 0 Then
                Return MyMedico
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyMedico = Trim(Value)
		End Set
	End Property
	
	
	Public Property Fecha() As Date
		Get
            Return MyFecha
		End Get
		Set(ByVal Value As Date)
			MyFecha = Value
		End Set
	End Property
	
	'Private MyDPOD As String
	
	Public Property DPOD() As String
		Get
			'DPOD = MyDPOD
			If Len(MyDPOD) > 0 Then
                Return MyDPOD
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyDPOD = Trim(Value)
		End Set
	End Property
	'Private MyDPOI As String
	
	Public Property DPOI() As String
		Get
			'DPOI = MyDPOI
			If Len(MyDPOI) > 0 Then
                Return MyDPOI
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyDPOI = Trim(Value)
		End Set
	End Property
	'Private MyDPAO As String
	
	Public Property DPAO() As String
		Get
			'DPAO = MyDPAO
			If Len(MyDPAO) > 0 Then
                Return MyDPAO
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyDPAO = Trim(Value)
		End Set
	End Property
	'Private MyCVC As String
	
	Public Property CVC() As String
		Get
			'CVC = MyCVC
			If Len(MyCVC) > 0 Then
                Return MyCVC
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyCVC = Trim(Value)
		End Set
	End Property
	
	
	Public Property ODValor() As String
		Get
			'ODValor = MyODValor
			If Len(MyODValor) > 0 Then
                Return MyODValor
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyODValor = Trim(Value)
		End Set
	End Property
	
	
	Public Property ODCC() As Boolean
		Get
            Return MyODCC
		End Get
		Set(ByVal Value As Boolean)
			MyODCC = CBool(Trim(CStr(Value)))
		End Set
	End Property
	
	
	Public Property ObservacionOD() As String
		Get
			'ObservacionOD = MyObservacionOD
			If Len(MyObservacionOD) > 0 Then
                Return MyObservacionOD
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyObservacionOD = Trim(Value)
		End Set
	End Property
	
	
	Public Property CorreccionOD() As String
		Get
			'CorreccionOD = MyCorreccionOD
			If Len(MyCorreccionOD) > 0 Then
                Return MyCorreccionOD
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyCorreccionOD = Trim(Value)
		End Set
	End Property
	
	
	Public Property OIValor() As String
		Get
			'OIValor = MyOIValor
			If Len(MyOIValor) > 0 Then
                Return MyOIValor
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyOIValor = Trim(Value)
		End Set
	End Property
	
	
	Public Property OICC() As Boolean
		Get
            Return MyOICC
		End Get
		Set(ByVal Value As Boolean)
			MyOICC = CBool(Trim(CStr(Value)))
		End Set
	End Property
	
	
	Public Property ObservacionOI() As String
		Get
			'ObservacionOI = MyObservacionOI
			If Len(MyObservacionOI) > 0 Then
                Return MyObservacionOI
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyObservacionOI = Trim(Value)
		End Set
	End Property
	
	
	Public Property CorreccionOI() As String
		Get
			'CorreccionOI = MyCorreccionOI
			If Len(MyCorreccionOI) > 0 Then
                Return MyCorreccionOI
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyCorreccionOI = Trim(Value)
		End Set
	End Property
	
	
	Public Property AOValor() As String
		Get
			'AOValor = MyAOValor
			If Len(MyAOValor) > 0 Then
                Return MyAOValor
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyAOValor = Trim(Value)
		End Set
	End Property
	
	
	Public Property AOCC() As Boolean
		Get
            Return MyAOCC
		End Get
		Set(ByVal Value As Boolean)
			MyAOCC = CBool(Trim(CStr(Value)))
		End Set
	End Property
	
	
	Public Property ObservacionAO() As String
		Get
			'ObservacionAO = MyObservacionAO
			If Len(MyObservacionAO) > 0 Then
                Return MyObservacionAO
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyObservacionAO = Trim(Value)
		End Set
	End Property
	
	
	Public Property CorreccionAO() As String
		Get
			'CorreccionAO = MyCorreccionAO
			If Len(MyCorreccionAO) > 0 Then
                Return MyCorreccionAO
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyCorreccionAO = Trim(Value)
		End Set
	End Property
	
	
	Public Property CVCyPOD() As String
		Get
			'CVCyPOD = MyCVCyPOD
			If Len(MyCVCyPOD) > 0 Then
                Return MyCVCyPOD
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyCVCyPOD = Trim(Value)
		End Set
	End Property
	
	
	Public Property CVCyPOI() As String
		Get
			'CVCyPOI = MyCVCyPOI
			If Len(MyCVCyPOI) > 0 Then
                Return MyCVCyPOI
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyCVCyPOI = Trim(Value)
		End Set
	End Property
	
	
	Public Property CVPOD() As String
		Get
			'CVPOD = MyCVPOD
			If Len(MyCVPOD) > 0 Then
                Return MyCVPOD
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyCVPOD = Trim(Value)
		End Set
	End Property
	
	
	Public Property CVPOI() As String
		Get
			'CVPOI = MyCVPOI
			If Len(MyCVPOI) > 0 Then
                Return MyCVPOI
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyCVPOI = Trim(Value)
		End Set
	End Property
	
	
	Public Property NOOD() As String
		Get
			'NOOD = MyNOOD
			If Len(MyNOOD) > 0 Then
                Return MyNOOD
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyNOOD = Trim(Value)
		End Set
	End Property
	
	
	Public Property NOOI() As String
		Get
			'NOOI = MyNOOI
			If Len(MyNOOI) > 0 Then
                Return MyNOOI
			Else
                Return " "
			End If
		End Get
		Set(ByVal Value As String)
			MyNOOI = Trim(Value)
		End Set
	End Property
End Class